home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ShareWare OnLine 2
/
ShareWare OnLine Volume 2 (CMS Software)(1993).iso
/
music
/
maxpak.zip
/
D70.PR_
/
D70.PR
Wrap
Text File
|
1992-11-30
|
6KB
|
321 lines
PROFILE FILE
* SAMPLE COMMENTS
BRAND "ROLAND"
INSTRUMENT "D-70"
KIND PATCH
FILEEXT "D70"
SIZE 37208
MIDI 1, 16, 10
TRANSMIT
YESNO V9, " Ready to send ? "
IFQUIT V9, 0
VINIT V1, 0
YESNO V9, " Send Bank to Card ? "
IFJUMP V9, CARD
*
* Don't send to a Card
*
VINIT V3, H829
IFJUMP 1, SKIP
*
* Do send to a Card
*
:CARD
VINIT V3, H9981
:SKIP
CLEAR ALL
MESSAGE SHOW "Sending Data to D-70"
LOOP 145
VDIV V4, V3, H4000
VMUL V7, V4, H4000
VSUB V5, V3, V7
VDIV V5, V5, H80
VAND V6, V3, H7F
BADD V2, V1, 256
VADD V2, V4, V2
VADD V2, V5, V2
VADD V2, V6, V2
VCHKSUM V2, V2
SEND 8, HF0, H41, H1M, H39, H12, V4, V5, V6
XDATA 0, 256, V1
SEND 2, V2, HF7
VADD V1, V1, 256
VADD V3, V3, 256
WAIT 1000
ENDLOOP
VDIV V4, V3, H4000
VMUL V7, V4, H4000
VSUB V5, V3, V7
VDIV V5, V5, H80
VAND V6, V3, H7F
BADD V2, V1, H58
VADD V2, V4, V2
VADD V2, V5, V2
VADD V2, V6, V2
VCHKSUM V2, V2
SEND 8, HF0, H41, H1M, H39, H12, V4, V5, V6
XDATA 0, H58, V1
SEND 2, V2, HF7
MESSAGE CLEAR
ENDMACRO
RECEIVE
YESNO V9, " Are You Ready ? "
IFQUIT V9, 0
VINIT V1, 0
YESNO V9, " Get Bank from Card ? "
IFJUMP V9, CARD
*
* Don't get from Card
*
VINIT V3, H829
IFJUMP 1, SKIP
*
* Do get from a Card
*
:CARD
VINIT V3, H9981
:SKIP
MESSAGE SHOW "Getting D70 Data "
CLEAR ALL
VDIV V4, V3, H4000
VMUL V7, V4, H4000
VSUB V5, V3, V7
VDIV V5, V5, H80
VAND V6, V3, H7F
VINIT V2, H7C
VADD V2, V4, V2
VADD V2, V5, V2
VADD V2, V6, V2
VCHKSUM V2, V2
SEND 13, HF0 H41 H1M H39 H41 V4 V5 V6 H02 H22 H58 V2 HF7
LOOP 145
GET 8, HF0, H41, H1M, H39, H42, V4, V5, V6, WAIT
RDATA 0, 256, V1
* Get Check sum and EOX
VGET V9
VGET V9
WAIT 100
VADD V3, V3, 256
VDIV V4, V3, H4000
VMUL V7, V4, H4000
VSUB V5, V3, V7
VDIV V5, V5, H80
VAND V6, V3, H7F
SEND 6, HF0, H41, H1M, H39, H43, HF7
VADD V1, V1, 256
ENDLOOP
GET 8, HF0, H41, H1M, H39, H42, V4, V5, V6, WAIT
RDATA 0, H58, V1
VGET V9
VGET V9
SEND 6, HF0, H41, H1M, H39, H43, HF7
GET 6, HF0, H41, H1M, H39, H45, HF7, WAIT
SEND 6, HF0, H41, H1M, H39, H43, HF7
MESSAGE CLEAR
ENDMACRO
* FILE Save Macro
DISKSAVE
DOPEN W, "D70"
MESSAGE SHOW "Saving Bank"
DWRITE 18604, 0
DWRITE 18604, 18604
MESSAGE CLEAR
DCLOSE
ENDMACRO
DISKLOAD
DOPEN R, "D70"
* start with Tone Data
MESSAGE SHOW "Loading Bank"
DREAD 18604, 0
DREAD 18604, 18604
MESSAGE CLEAR
DCLOSE
ENDMACRO
*
* 1st View is Tones
*
VIEW
PATCH TITLE "Tones"
PATCH OFFSET 29272
PATCH LENGTH 62
PATCH NUMBER 128
NAME LENGTH 10
NAME OFFSET 0
NAME XFORM 0
TRANSMIT
CLEAR ALL
USERVAL V5, 1, 5, 1, "Enter Part # to Send to"
USERVAL V6, 1, 4, 1, "Enter Tone Number"
VINIT V2, 0
VSUB V5, V5, 1
VMUL V5, V5, 248
VADD V5, V5, H351
VSUB V6, V6, 1
VMUL V6, V6, 62
VADD V6, V6, V5
VDIV V4, V6, H80
VAND V5, V6, H7F
BADD V2, 0, 62
VADD V2, V4, V2
VADD V2, V5, V2
VCHKSUM V2, V2
SEND 8, HF0, H41, H10, H39, H12, 0, V4, V5
XDATA 0, 62, 0
SEND 2, V2, HF7
ENDMACRO
RECEIVE
CLEAR ALL
USERVAL V5, 1, 5, 1, "Enter Part # to Get From"
USERVAL V6, 1, 4, 1, "Enter Tone Number"
VSUB V5, V5, 1
VMUL V5, V5, 248
VADD V5, V5, H351
VSUB V6, V6, 1
VMUL V6, V6, 62
VADD V6, V6, V5
VDIV V4, V6, H80
VAND V5, V6, H7F
VINIT V2, H3E
VADD V2, V4, V2
VADD V2, V5, V2
VCHKSUM V2, V2
SEND 13, HF0 H41 H1M H39 H11 0 V4 V5 0 0 H3E V2 HF7
WAIT 200
GET 8, HF0, H41, H1M, H39, H12, 0, V4, V5, WAIT
RDATA 0, 62, 0
VGET V9
VGET V9
ENDMACRO
VIEWEND
*
* 2nd View is Patches
*
VIEW
PATCH TITLE "Patches"
PATCH OFFSET 18136
PATCH LENGTH 87
PATCH NUMBER 128
NAME LENGTH 10
NAME OFFSET 0
NAME XFORM 0
TRANSMIT
CLEAR ALL
VINIT V2, 0
USERVAL V5, 1, 5, 1, "Enter Part # to Get From"
VSUB V5, V5, 1
VMUL V5, V5, H57
VADD V5, V5, H19E
VDIV V4, V5, H80
VAND V5, V5, H7F
BADD V2, 0, H57
VADD V2, V4, V2
VADD V2, V5, V2
VCHKSUM V2, V2
SEND 8, HF0, H41, H10, H39, H12, 0, V4, V5
XDATA 0, H57, 0
SEND 2, V2, HF7
ENDMACRO
RECEIVE
CLEAR ALL
USERVAL V5, 1, 5, 1, "Enter Part # to Get From"
VSUB V5, V5, 1
VMUL V5, V5, H57
VADD V5, V5, H19E
VDIV V4, V5, H80
VAND V5, V5, H7F
VINIT V2, H57
VADD V2, V4, V2
VADD V2, V5, V2
VCHKSUM V2, V2
SEND 13, HF0 H41 H1M H39 H11 0 V4 V5 0 0 H57 V2 HF7
WAIT 200
GET 8, HF0, H41, H1M, H39, H12, 0, V4, V5, WAIT
RDATA 0, H57, 0
VGET V9
VGET V9
ENDMACRO
VIEWEND
*
* 3rd View is Performances
*
VIEW
PATCH TITLE "Performances"
PATCH OFFSET 2712
PATCH LENGTH 241
PATCH NUMBER 64
NAME LENGTH 10
NAME OFFSET 0
NAME XFORM 0
TRANSMIT
CLEAR ALL
VINIT V2, 0
BADD V2, 0, 241
VADD V2, V2, H2E
VCHKSUM V2, V2
SEND 8, HF0, H41, H10, H39, H12, 0, 1, H2D
XDATA 0, 241, 0
SEND 2, V2, HF7
ENDMACRO
RECEIVE
CLEAR ALL
SEND 13, HF0 H41 H1M H39 H11 0 1 H2D 0 1 H71 H60 HF7
WAIT 200
GET 8, HF0, H41, H1M, H39, H12, 0, 1, H2E, WAIT
RDATA 0, 241, 0
VGET V9
VGET V9
ENDMACRO
VIEWEND
*
* 4th View is user sets
*
VIEW
PATCH TITLE "User Sets"
PATCH OFFSET 2662
PATCH LENGTH 5
PATCH NUMBER 10
NAME LENGTH 0
NAME OFFSET -1
NAME XFORM 0
TRANSMIT
CLEAR ALL
VINIT V2, 0
BADD V2, 0, 5
VADD V2, V2, H28
VCHKSUM V2, V2
SEND 8, HF0, H41, H10, H39, H12, 0, 1, H28
XDATA 0, 5, 0
SEND 2, V2, HF7
ENDMACRO
RECEIVE
CLEAR ALL
SEND 13, HF0 H41 H1M H39 H11 0 1 H28 0 0 5 H52 HF7
WAIT 200
GET 8, HF0, H41, H1M, H39, H12, 0, 1, H28, WAIT
RDATA 0, 5, 0
VGET V9
VGET V9
ENDMACRO
VIEWEND
*
* 5th View is Rhythm Setups
*
VIEW
PATCH TITLE "Rhythm Keys"
PATCH OFFSET 2
PATCH LENGTH 35
PATCH NUMBER 76
NAME LENGTH 0
NAME OFFSET -1
NAME XFORM 0
TRANSMIT
CLEAR ALL
ENDMACRO
RECEIVE
CLEAR ALL
ENDMACRO
VIEWEND
*
*End of Profile
*